(rmail-summary-kill-label): Use rmail-kill-label

instead of calling rmail-set-label, which will call
rmail-make-label on the string.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 9e8db4b821e5b6d11f6e22c7122695ebd79bd71b..8c39497921f57f46dd4f50988bad4e78d7c91583 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1166,7 +1166,7 @@ Completion is performed over known labels when reading."
   (interactive (list (with-current-buffer rmail-buffer
                       (rmail-read-label "Kill label" t))))
   (with-current-buffer rmail-buffer
-    (rmail-set-label label nil)))
+    (rmail-kill-label label nil)))
 \f
 ;;;; *** Rmail Summary Mailing Commands ***